Elite College Girls 1/Elite College Girls - Volume 1.iso/pc/shared.dir/01953.ls

Text File | 1996-02-02 | 6.6 KB | 256 lines

global gImages, gDataPos, gImageCount, theFirstImage, gFirstGroupSprite, gInterfaceSprite, gPictSprite, gCenterH, gCenterV, gCurrentPict, gStartFrame, gEndFrame, gZoomFactor, gZoomFactors, gZoomLevels, gZoomDirection, gSpriteHeight, gSpriteWidth, gSpriteHeightPercent, gSpriteWidthPercent, gDistance, gDistanceH, gDistanceV, gPhotos, gPhotos1, gPhotos2, gPhotos3, gPhotos4, gCurrentGroup, gCurrentPICTlist, gReturnFrame

on setGlobals
  set gDistance to 40
  set gZoomFactor to 2
  set gZoomFactors to [0.25, 0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4]
  set gZoomLevels to count(gZoomFactors)
  set gZoomDirection to 1
  set gFirstGroupSprite to 4
  set gInterfaceSprite to 47
  set gPictSprite to 1
  set gCenterH to 320
  set gCenterV to 240
  repeat with x = 2 to 48
    set the cursor of sprite x to 0
  end repeat
end

on selectGroup whichGroup
  if the timer > 60 then
    set gCurrentGroup to whichGroup - 1
    set gCurrentPict to 1
    setProp(1, 48, "visibility", 0)
    puppetTransition(6, 3, 12)
    updateStage()
    go("Hide")
    go(1, "Photos.DIR")
    exit
    set gStartFrame to label("Start " & gCurrentPict)
    set gEndFrame to label("End " & gCurrentPict)
    advanceFrame(0)
    set the cursor of sprite 2 to 0
  end if
  startTimer()
end

on selectGroup3 whichGroup
  set gCurrentPict to whichGroup - gFirstGroupSprite + 1
  set gStartFrame to label("Start " & gCurrentPict)
  set gEndFrame to label("End " & gCurrentPict)
  advanceFrame(0)
  set the cursor of sprite 2 to 0
end

on checkInterfaceClick userH
  if legalButton(the clickOn) then
    set userH to the mouseH
    if rollOver(the clickOn) then
      if the movie contains "Menu" then
        if userH > 521 then
          if userH < 572 then
            highlight("Interface: Hide", 547, 453)
            interfaceHide()
          else
            if userH < 636 then
              highlight("Interface: Quit", 599, 453)
              interfaceQuit()
            end if
          end if
        end if
      else
        if userH > 3 then
          if userH < 117 then
            highlight("Interface: Main Menu", 65, 453)
            interfaceMainMenu()
          else
            if userH < 216 then
              highlight("Interface: Previous", 167, 452)
              interfacePrevious()
            else
              if userH < 284 then
                highlight("Interface: Next", 251, 452)
                interfaceNext()
              else
                if userH < 363 then
                  highlight("Interface: Zoom In", 323, 453)
                  interfaceZoomIn()
                else
                  if userH < 462 then
                    highlight("Interface: Zoom Out", 412, 453)
                    interfaceZoomOut()
                  else
                    if userH < 521 then
                      highlight("Interface: Print", 492, 453)
                      interfacePrint()
                    else
                      if userH < 572 then
                        highlight("Interface: Hide", 547, 453)
                        interfaceHide()
                      else
                        if userH < 636 then
                          highlight("Interface: Quit", 599, 453)
                          interfaceQuit()
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on highlight whichCast, x, y
  if developersKey() then
    activate(48, whichCast, 1, 36, x, y, EMPTY, EMPTY, EMPTY)
    set the foreColor of sprite 48 to 128
    updateStage()
    if not (whichCast contains "Hide") then
      repeat with x = 1 to 2
        set the visible of sprite 48 to 0
        updateStage()
        set the visible of sprite 48 to 1
        updateStage()
      end repeat
    end if
    deactivate([48])
  end if
end

on interfaceMainMenu
  setProp(1, 48, "visibility", 0)
  puppetTransition(6, 3, 12)
  updateStage()
  puppetPalette("System")
  go("Menu", "MainMenu.DIR")
  setProp(1, 48, "visibility", 1)
end

on interfacePrevious
  advanceFrame(-1)
end

on interfaceNext
  advanceFrame(1)
end

on interfaceZoomIn
  if the timer > 10 then
    zoomSprite(gPictSprite, point(gCenterH, gCenterV), the locH of sprite gPictSprite, the locV of sprite gPictSprite, 1)
  end if
  startTimer()
end

on interfaceZoomOut
  if the timer > 10 then
    zoomSprite(gPictSprite, point(gCenterH, gCenterV), the locH of sprite gPictSprite, the locV of sprite gPictSprite, -1)
  end if
  startTimer()
end

on interfacePrint
  if the timer < 40 then
    exit
  end if
  puppetSprite(gPictSprite, 1)
  hideShow(3, 48, 0, 3)
  moveSprites(5, 48, -1)
  printFrom(the frame, the frame, 75)
  moveSprites(5, 48, 1)
  hideShow(3, 48, 1, 4)
  puppetSprite(gPictSprite, 0)
  startTimer()
end

on interfaceHide
  if the timer < 30 then
    exit
  end if
  setProp(1, 48, "visibility", 0)
  updateStage()
  delayFor(60)
  repeat while the mouseDown
    nothing()
  end repeat
  repeat while the mouseUp
    nothing()
  end repeat
  setProp(1, 48, "visibility", 1)
  updateStage()
  startTimer()
end

on interfaceQuit
  if the timer < 30 then
    exit
  end if
  setProp(1, 48, "visibility", 0)
  puppetTransition(6, 3, 12)
  updateStage()
  if the movie contains "Menu" then
    go("Quit")
  else
    go("Quit", "MainMenu.DIR")
  end if
end

on advanceFrame frameModifier
  set gCurrentPict to gCurrentPict + frameModifier
  prepImage()
end

on advanceFrameOLD frameModifier
  cursor(4)
  set currentRelativeFrame to checkRange(the frame, gStartFrame, gEndFrame)
  set newFrame to checkRangeWrap(currentRelativeFrame + frameModifier, gStartFrame, gEndFrame)
  if frameModifier = 0 then
    hideShow(1, 48, 0, 5)
    go("buttons")
    repeat with x = 3 to 15
      puppetSprite(x, 1)
    end repeat
  end if
  hideShow(1, 1, 0, 5)
  puppetTransition(0)
  puppetPalette("System")
  go("Hide")
  puppetPalette(0)
  go(newFrame)
  hideShow(1, 9, 1, 5)
  if frameModifier <> 0 then
    preLoad(checkRangeWrap(newFrame - 1, gStartFrame, gEndFrame))
  end if
  preLoad(checkRangeWrap(newFrame + 1, gStartFrame, gEndFrame))
  set gPICThModifier to 0
  set gPICTvModifier to 0
  cursor(0)
  setDimensions()
end

on correctPalette
  puppetPalette("System")
  updateStage()
  puppetPalette(0)
  updateStage()
end

on hideShow startSprite, endSprite, theVisible, whichTransition
  repeat with x = startSprite to endSprite
    set the visible of sprite x to theVisible
  end repeat
  puppetTransition(whichTransition, 1, 12)
  go(the frame)
end

on moveSprites startSprite, endSprite, posOrNeg
  repeat with x = startSprite to endSprite
    set the locV of sprite x to posOrNeg * abs(the locV of sprite x)
  end repeat
  updateStage()
end